home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2000 May / PCW_MAY2000.iso / pc world.dir / 00001_Script_1 < prev    next >
Text File  |  2000-04-04  |  1KB  |  59 lines
  1. on exitFrame
  2.   --  brow = "??"
  3.   --  def = readreg("HKEY_LOCAL_MACHINE","Software\CLASSES\htmlfile\shell\opennew\command","")
  4.   --  def=string(def)
  5.   --  
  6.   --  if def contains "explorer" then 
  7.   --    brow = "internet explorer"
  8.   --  else
  9.   --    
  10.   --    if def contains "netscape" then 
  11.   --      brow = "netscape"
  12.   --    else
  13.   --      go "install"
  14.   --    end if
  15.   --    
  16.   --  end if
  17.   
  18.   set myHtml = the moviePath & "index.htm"
  19.   set res = FindApp (myHtml)
  20.   --  put res
  21.   
  22.   set ff = res
  23.   
  24.   if ff<>0 then
  25.     
  26.     if GetFileAttribute(ff,0) = -1 then 
  27.       
  28.       
  29.       leg = length(ff)
  30.       
  31.       if char (leg-11) to leg of ff = "IEXPLO~1.EXE" then 
  32.         
  33.         ff = char 1 to (leg-12) of ff & "Iexplore.exe"
  34.         
  35.         if GetFileAttribute(ff,0) = -1 then 
  36.           go "install"
  37.         else
  38.           browsername (ff)
  39.         end if
  40.         
  41.         else
  42.         
  43.         go "install"
  44.         
  45.       end if
  46.       
  47.     end if
  48.     
  49.     
  50.   else
  51.     
  52.     go "install"
  53.     
  54.   end if
  55.   
  56.   
  57. end
  58.  
  59.